home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / kowin / archive / kob / kob001s.lzh / variable.h < prev    next >
Text File  |  1996-09-02  |  6KB  |  252 lines
  1. 変数個数    equ    $20        * 2^5
  2. 変数SIZE    equ    $1000
  3. nest_workSIZE    equ    $2000
  4. * 関数bufSIZE    equ    $10*512
  5. 関数listSIZE    equ    4*64        * 関数ファイルの個数上限 64
  6. strbufSIZE    equ    $2000
  7. CbufSIZE    equ    $100        * 2^8
  8.  
  9. SYSVARNUM    equ    29
  10. SYSFUNCNUM    equ    13
  11. EVENTNUM    equ    20
  12.  
  13.     .offset 0
  14. _変数int:    .ds.l    2
  15. _変数str:    .ds.l    2
  16. _変数char:    .ds.l    2
  17. _変数float:    .ds.l    2
  18. _配列:        .ds.l    2
  19.  
  20. _AUTOint:    .ds.l    2
  21. _AUTOstr:    .ds.l    2
  22. _AUTOchar:    .ds.l    2
  23. _AUTOfloat:    .ds.l    2
  24. _AUTO配列:    .ds.l    2
  25.  
  26. _program_pointer:    .ds.l    4    * kob
  27. _KO_FLAG:    .ds.l    1        * kob
  28. _EVENT_NUM:    .ds.l    1        * kob
  29. _xbFLAG:    .ds.l    1        * kob
  30.  
  31. _is_hash:    .ds.b    256
  32.  
  33. _名前:        .ds.l    2
  34. _行番号:    .ds.l    3
  35. _ラベル:    .ds.l    3
  36. _goto飛先:    .ds.l    3
  37. _変数INIT:    .ds.l    3
  38. _引数INIT:    .ds.l    3
  39. _b_argc:    .ds.l    1
  40. _b_argv:    .ds.l    1
  41.  
  42. _SPinit:    .ds.l    1
  43. _program_area:    .ds.l    1
  44. _中間言語:    .ds.l    1
  45. _変数area:    .ds.l    1
  46. _mem_last:    .ds.l    1
  47. _command_line:    .ds.l    1
  48. _MEM1:        .ds.l    1
  49. _MEM2:        .ds.l    1
  50.  
  51. _関数list:    .ds.l    1
  52. _関数buf:    .ds.l    1
  53. _内部関数buf:    .ds.l    1
  54. _内部関数para:    .ds.l    1
  55.  
  56. _nest_work:    .ds.l    1
  57. _strbuf:    .ds.l    1
  58.  
  59. _returnNUM:    .ds.l    1
  60. _errorno:    .ds.l    1
  61. _行数:        .ds.l    1
  62. _中間言語行数:    .ds.l    4
  63. _EXTENDmask:    .ds.l    2
  64.  
  65. _関数file数:    .ds.w    1
  66. _関数個数:    .ds.w    1
  67. _内部関数個数:    .ds.w    1
  68.  
  69. _sub深さ:    .ds.w    1
  70. _sinitASK:    .ds.w    1
  71. _sinitFLAG:    .ds.b    1    * bit 7:screen/console/width
  72.     .even            * bit 6:color []
  73. _RETURNtype:    .ds.w    1
  74. _breakcheck:    .ds.w    1
  75. _EXITcode:    .ds.w    1
  76. _fkeyflag:    .ds.w    1
  77. _FREEMEM:    .ds.w    1
  78. _tagFP:        .ds.w    1
  79. _scroll開始行:    .ds.w    1
  80. _xb動作mode:    .ds.w    1
  81. _global_flag:    .ds.b    1
  82.         .even
  83.  
  84. _system変数:    .ds.b    8*SYSVARNUM
  85. _system関数:    .ds.b    8*SYSFUNCNUM
  86. _system関数登録: .ds.b    4*EVENTNUM
  87. _標準functable:    .ds.w    $100*2
  88. _外部functable:    .ds.w    $100*2
  89. _起動dir:    .ds.b    $100
  90. _tmp:        .ds.b    $200
  91. _b_initbuf:    .ds.b    712
  92. _basic_filename: .ds.b    $100
  93. _cnf_filename:    .ds.b    $100
  94. _tag_filename:    .ds.b    $100
  95. _ed_filename:    .ds.b    $100
  96. _strtok_work:    .ds.w    1
  97. _strtok_buf:    .ds.b    $100
  98.         .ds.b    $100
  99. _SP上限:    .ds.b    $8000        * kobではワーク専用
  100. _WORK:
  101.  
  102.  
  103.  
  104. 関数list    reg    _関数list(a6)
  105. 関数buf        reg    _関数buf(a6)
  106. 関数file数    reg    _関数file数(a6)
  107. 関数個数    reg    _関数個数(a6)
  108. 内部関数buf    reg    _内部関数buf(a6)
  109. 内部関数para    reg    _内部関数para(a6)
  110. 内部関数個数    reg    _内部関数個数(a6)
  111.  
  112. 変数int        reg    _変数int(a6)
  113. 変数str        reg    _変数str(a6)
  114. 変数char    reg    _変数char(a6)
  115. 変数float    reg    _変数float(a6)
  116. 配列        reg    _配列(a6)
  117.  
  118. AUTOint        reg    _AUTOint(a6)
  119. AUTOstr        reg    _AUTOstr(a6)
  120. AUTOchar    reg    _AUTOchar(a6)
  121. AUTOfloat    reg    _AUTOfloat(a6)
  122. AUTO配列    reg    _AUTO配列(a6)
  123. RETURNtype    reg    _RETURNtype(a6)
  124. program_pointer    reg    _program_pointer(a6)
  125. KO_FLAG        reg    _KO_FLAG(a6)
  126. EVENT_NUM    reg    _EVENT_NUM(a6)
  127. xbFLAG        reg    _xbFLAG(a6)
  128. xb動作mode    reg    _xb動作mode(a6)
  129.  
  130. 名前        reg    _名前(a6)
  131. 行番号        reg    _行番号(a6)
  132. ラベル        reg    _ラベル(a6)
  133. goto飛先    reg    _goto飛先(a6)
  134. 変数INIT    reg    _変数INIT(a6)
  135. 引数INIT    reg    _引数INIT(a6)
  136. b_argc        reg    _b_argc(a6)
  137. b_argv        reg    _b_argv(a6)
  138. returnNUM    reg    _returnNUM(a6)
  139.  
  140. SPinit        reg    _SPinit(a6)
  141. breakcheck    reg    _breakcheck(a6)
  142. EXITcode    reg    _EXITcode(a6)
  143. program_area    reg    _program_area(a6)
  144. 中間言語    reg    _中間言語(a6)
  145. 変数area    reg    _変数area(a6)
  146. command_line    reg    _command_line(a6)
  147. MEM1        reg    _MEM1(a6)
  148. MEM2        reg    _MEM2(a6)
  149.  
  150. errorno        reg    _errorno(a6)
  151. 行数        reg    _行数(a6)
  152. 中間言語行数    reg    _中間言語行数(a6)
  153. mem_last    reg    _mem_last(a6)
  154. nest_work    reg    _nest_work(a6)
  155. fkeyflag    reg    _fkeyflag(a6)
  156. sinitASK    reg    _sinitASK(a6)
  157. sinitFLAG    reg    _sinitFLAG(a6)
  158. tagFP        reg    _tagFP(a6)
  159. scroll開始行    reg    _scroll開始行(a6)
  160. global_flag    reg    _global_flag(a6)
  161. EXTENDmask    reg    _EXTENDmask(a6)
  162. sub深さ        reg    _sub深さ(a6)
  163. system変数    reg    _system変数(a6)
  164. system関数    reg    _system関数(a6)
  165. system関数登録    reg    _system関数登録(a6)
  166. 標準functable    reg    _標準functable(a6)
  167. 外部functable    reg    _外部functable(a6)
  168. 起動dir        reg    _起動dir(a6)
  169. tmp        reg    _tmp(a6)        * その場限り
  170. strbuf        reg    _strbuf(a6)
  171. b_initbuf    reg    _b_initbuf(a6)
  172. basic_filename    reg    _basic_filename(a6)
  173. cnf_filename    reg    _cnf_filename(a6)
  174. tag_filename    reg    _tag_filename(a6)
  175. ed_filename    reg    _ed_filename(a6)
  176.  
  177.  * 標準関数用
  178. strtok_work    reg    _strtok_work(a6)
  179. strtok_buf    reg    _strtok_buf(a6)
  180.  
  181.  
  182.  
  183.  * 外部関数 infomation table
  184.     .offset    0
  185. Finit:        .ds.l    1
  186. Frun:        .ds.l    1
  187. Fend:        .ds.l    1
  188. Fexit:        .ds.l    1
  189. Fbreak:        .ds.l    1
  190. FctrlD:        .ds.l    3
  191. Ftokun:        .ds.l    1
  192. Fpara:        .ds.l    1
  193. Fexec:        .ds.l    1
  194.         .ds.l    5    * 予備
  195.  
  196.  
  197.  
  198. ERROR    .macro    num
  199.     moveq    #num,d0
  200. *    movea.l    SPinit,sp
  201.     bra    error
  202.     .endm
  203.  
  204. ERRORS    .macro    num
  205.     moveq    #num,d0
  206. *    movea.l    SPinit,sp
  207.     bra    errors
  208.     .endm
  209.  
  210. WARN    .macro    num
  211.     move.l    d0,-(sp)
  212.     moveq    #num,d0
  213.     bsr    warning
  214.     move.l    (sp)+,d0
  215.     .endm
  216.  
  217. WARNS    .macro    num
  218.     move.l    d0,-(sp)
  219.     moveq    #num,d0
  220.     bsr    warnings
  221.     move.l    (sp)+,d0
  222.     .endm
  223.  
  224.  
  225.  * 拡張機能のフラグ
  226. b_argF        equ    30        * 0 = なし, 1 = あり
  227. fnc_dimF    equ    29        * 1 = 関数の引き数に配列許す
  228. v_initF        equ    28        * 1 = 関数呼び出しごとに変数初期化しない
  229. labelF        equ    27        * 1 = goto ラベルを使用出来る
  230. breakoffF    equ    26        * 1 = BREAK(CTRL+C) 無効
  231. len_dimF    equ    25        * 1 = 可変長配列使えるよ
  232.  
  233. * コンフィグ・コンパイラ共通のフラグ
  234. no_cnfF        equ    8        * 0 = .cnf , 1 = .bas
  235. fnckeyF        equ    16        * 0 = ファンクションキー書き替える
  236. fncautoF    equ    17        * 1 = ファンクションキーＡＵＴＯ
  237. fncwarnF    equ    18        * 1 = WARNING 出た
  238.  
  239. * コンパイラ・インタプリタ共通のフラグ
  240. modeF        equ    7        * 0 = global , 1 = auto
  241.  
  242. * コンパイラのフラグ
  243. endfuncF    equ    6        * 1 = endfunc後
  244. warningF    equ    5        * 1 = ワーニング出た
  245. warnoffF    equ    4        * 1 = ワーニングOFF
  246. linenumF    equ    3        * 1 = 行番号あり
  247.  
  248. * インタプリタのフラグ
  249. cursorF        equ    0        * 0 = cursor OFF, 1 = ON
  250. errorF        equ    1        * 0 = error on, 1 = off
  251. localF        equ    15        * local flag
  252.